#!/usr/bin/env perl
#

use strict;
use 5.010;
use Data::Dumper;

my @na = ();
my %nh = ('test1' => 't1', 'test2' => 't2');

push (@na, \%nh);
print Dumper(\%nh);
print Dumper(\@na);


my @a = ('1', '2', '3', '4');
my $size = @a;
say "size $size";



